home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / dfÜ / bbs / microbbs1.1 / commands / flg / bbs.buildfiledir < prev    next >
Encoding:
AmigaDOS Script File  |  1995-11-18  |  1.8 KB  |  39 lines
  1. .key DIR/A,TARGET/A,SOURCEDIR/A,TARGETDIR/A,FLGDIR/A
  2. .bra {
  3. .ket }
  4.  
  5. RexxC:RX 'Say( Translate( "{SOURCEDIR}{DIR}", "..", "/:")) >ENV:TRANSDIR
  6.  
  7. C:Echo "Scanning {SOURCEDIR}{DIR}..."
  8.  
  9. C:Delete {TARGETDIR}{DIR}Menu.bbs >>NIL:
  10. C:Echo "    ( {SOURCEDIR}{DIR}.menu*n        ( Before {TARGETDIR}{DIR}Menu.bbs )*n        ( After {TARGETDIR}{DIR}Menu.bbs )*n        ( Options" >>{TARGET}
  11. C:List {DIR} DIRS LFORMAT "%N" TO T:BBS.A.{$$}
  12.                            
  13. C:Echo "*n" >>{TARGETDIR}{DIR}Menu.bbs
  14. RexxC:RX 'Say( Center( "- "$TRANSDIR" -", 80)) >>{TARGETDIR}{DIR}Menu.bbs
  15.  
  16. C:List T:BBS.A.{$$} LFORMAT "%B" TO ENV:SIZE
  17.  
  18. IF empty NOT EQ $SIZE
  19.     C:Sort T:BBS.A.{$$} T:BBS.A.{$$}
  20.     C:LFType T:BBS.A.{$$} "            ( %s {SOURCEDIR}{DIR}%s/.menu )*n" KEYS >>{TARGET}
  21.  
  22.     C:Echo "" >>{TARGETDIR}{DIR}Menu.bbs
  23.     C:LFType T:BBS.A.{$$} "C[%s] %s*n" KEYS >>{TARGETDIR}{DIR}Menu.bbs
  24. ENDIF
  25.  
  26. IF EXISTS {TARGETDIR}{DIR}Files.bbs
  27.     C:Echo "            ( D Transfer.Download.bat )*n            ( S Transfer.Searchfiles.bat )*n            ( L*n                ( {TARGETDIR}{DIR}Files.bbs )*n                ( WaitReturn.bat )*n            )" >>{TARGET}
  28.  
  29.     C:Echo "*nC[D] - DownloadC[U] - Upload" >>{TARGETDIR}{DIR}Menu.bbs
  30.     C:Echo "C[S] - Files suchenC[L] - Files auflisten" >>{TARGETDIR}{DIR}Menu.bbs
  31. ENDIF
  32.  
  33. C:Echo "        )*n    )" >>{TARGET}
  34.  
  35. C:Echo "C[-] - voriges Menue" >>{TARGETDIR}{DIR}Menu.bbs
  36.  
  37. C:List {DIR} DIRS LFORMAT "{FLGDIR}FLG.BuildDir %P%N/ {SOURCEDIR} {TARGETDIR} {FLGDIR}*n{FLGDIR}BBS.BuildFileDir %P%N/ *{TARGET} {SOURCEDIR} {TARGETDIR} {FLGDIR}" TO T:BBS.{$$}
  38. C:Execute T:BBS.{$$}
  39.